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2.2 


4.2 


4.3 


ABSTRACT 


yt eT, A Lose M2 at PRLS FOR Foe Has TER dy OPERATE 


THIS TEST WILL CHECK UP TO 32 SEQUENTIAL DR11C’S. 


REQUIREMENTS 

EQUIPMENT 

PDP-11 STANDARD COMPUTER 

DR11C 

BCOSR FOR EACH DRLIC 

STORAGE 

2.2.1 PROGRAM STORAGE - THE ROUTINE USES MEMORY 
FROM 0000 TO S200. 


LOADING PROCEDURE 
METHOD 
ABSOLUTE LOADER 


STARTING PROCEDURE 
CONTROL SWITCH SETTING 
FOR SWITCHLESS ie THE PROGRAM WILL USE i. $ 
Tf NO HAROUARE met te, ThE, PROGRAA 
SOF on 1 REGISTER 
) INE. Pil ™ 
WILL BE USED AS THE SOFTWARE DISPLAY REGIS 


CIP MO ZERO, BIT O70 B WILL BE STARTING VECTOR.) 


STARTING ADDRESS OR ADDRESSES 

(A) 200 = Stent OF TEST=-FOR NORMAL TESTING 

(8B) eOY = 3 8 ENTRANCE - TESTING ars DR11C 
(C) 210s RESTAR --FOR STARTING AFTER SHUT DOWN 
PROGRAM AND/OR OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY. 


oe ee oe 
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4.3.1 


$.2. 


SH Tee REGISTER TO STARTING ADDRESS. 


SS START. 
THE PROGRAM WILL STAY IN SECTION AND LOOP. 
FOR SPECIAL ENTRANCE - SA2O4 
ITCH REGISTER EQUAL TO CSR ADDRESS OF DRLIC 
bese tanith SWITCH REGISTER EQUAL TO VECTOR ADDRESS OF DRLIC 
RAISE SWITCH 10 TO “1” TO INHIBIT SEQUENCING TO NEXT DRLIC 


OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 

5.1.1 AT_SA 200 .. THE INSTRUCTION AND LOGIC TEST. 
WITH ALL SWITCHES DOWN THE PROGRAM W why PRINT 
OUT ON ERRORS AND CONTINUE IN TEST. (# WILL 

BE PRINTED AT COMPLETION OF TESTING EACH DR1IC) 


5.1.2 SWITCH SETTINGS ARE 


ee et Se ee HALT ON ERROR 
Sul3 = 1 OR UP Be 

le = 1 OR UP ... NOT 
SW11 = 1 OR UP ... INHIBIT ITERATION 7 ol 
SWi0 = 1 OR UP ... DO NOT TO NEXT DRIIC 
SWOS = 1 OR UP ... INHIBIT PRINTOUT OF DEVICE TESTED. 


§.1.3 
SUBROUTINE . 9STRACTS 
S.2.1 BEGIN SA 200 
5.2.2 SCOPE 
wT puna it CALL _I BLACeD 37 cen ne 
NF INSTRUCTION TES] cFTON 


REA De, a Rie 


5.2.3 HALT 
S A ROUTINE THAT PRINTS-OUT AN ADDRESS THAT TAGS 
HE FAILING SUBTEST, AND THE INCORRECT DATA AT 
THE TIME OF THE FAILURE. SEE 6.1 


(S. OPERATING PROCEDURE CONT’D) 


ee ee 
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5.3 


6.2 


7.2 


PROGRAM AND/OR OPERATOR ACTION 


$.3.1 LOADING fe STARTING AT 200 WITH ALL SWITCHES DOWN 
INSTRUCTION AND LOGIC TEST. IF AN ERROR 


BPR EPID ead Bae ha Bet 


ON ERROR, THEN SW13 UP TO DELETE PRINTOUTS. 


ERRORS 
ERROR PRINTOUT 


Defected EmioR-. (ME ono is The PRocesson sTaToS) 
vEnTOn A eg THE 3RD IS DEVICE ADDRESS, THE 4TH IS 


ERROR RECOVERY 

DEPRESS CONTINUE TO RESTART SECTION 
RESTRICTIONS 

STARTING RESTRICTION 

NONE 

OPERATIONAL RESTRICTION 


THE DR11C MUST HAVE THE BCOSR CABLE TO RUN 
THIS TEST. 


NOTE THAT THE DR11C HAS FLOATING VECTORS: 
THE BELOW IS THE ASSIGNMENT OF FLOATING VECTORS, THE ASSIGNED 
SEQUENCES ARE: 


STARTING AT 300 AND WORKING UPWARD ALL DC11’S WILL BE ASSIGNED. 
THEN ANY EXTRA KL11 CALLED FOR (VTOS, VTO6, LC11) 

THEN ANY DP11 CALLED FOR. 

THEN ANY DM11 CALLED FOR. 

THEN ANY DN11 CALLED FOR. 

THEN ANY OM11BB CALLED FOR. 

THEN ANY DRI1A CALLED FOR. 

THEN ANY DRIIC CALLED FOR. 


rer rrrrr = 
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THE DRI1A AND DRIIC DEVICE ADDRESSES WILL BE ASSIGNED IN THE USER 


eRe be ria erin ete a te atone 


LIMIT AND WORK UP. AFTER ASSIGNING ALL DRIIA’S, ASSIGN DRLIC’S 
767776 TO 767770 11C 80 ;ASSUMING NO DR1IA’S 
767766 10 767760 11€ #1 
767706 10 767700 DR1iC #7 
767606 TO 767600 DRIIC #15 
8. MISCELLANEOUS 


ASF EEE IME MUGS RETR, ts ORE Tt 


egal ADDRESS AND BLACING SW10 a ONE ¢ uP) re INHIBIT SEQUENCING 
O THE NEXT DRIIC. SEE 4.3.1. 


8.1 EXECUTION TIME 
FOR EACH DRIIC ABOUT 1 MINUTE 
8.2 UNTESTED LOGIC 
SIGNALS TO USER NOT TESTED: 
“NEW DATA READY” 


“DATA TRANSMITTED” 
“INIT” TO THE USER 


°. PROGRAM DESCRIPTION 
THIS PROGRAM WHEN STARTED AT 200 CHECKS THE STANDARD DR11-C’S 
THE PROGRAM THEN PERFORMES AN INCREMENTAL LOGIC CHECK FOR 
THE SELECTED DRLIC. 

THE DATA_REGISTER IS TESTED TO SEE IF “RESET” CLEARS IT, 

AND IF IT WILL HOLD ALL COMBINATIONS OF NUMBERS. 


THE READ/WRITE BITS OF THE STATUS REGISTER ARE ALSO TESTED. 


vem RUPT AT HE CORRECT BUS REQUEST LEVEL onze pyre 


HE TEST AN ’#’ IS TYPED AND AL 


oe Quek ee 


11-C IS ON THE SYSTEM THEN THE x Balt Restarts TESTING 
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THE NEW DR11-C. 


AFTER ALL DR11-C’S HAVE BEEN TESTED THE PROGRAM WILL 
TYPE ’END PASS’ AND RESTART TESTING WITH THE INITIAL DR11-C. 


Ayo ou cH NTE PROGRAA EL — 
187760 110 
ETC. 

IF SWITCH $°IS UP THEN 


IF A POWER FAIL OCCURS THE PROGRAM WILL RESTART AT “START”. 


Sinisa elat sissy 


ec eres 
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;GENERAL REGISTER LOGIC TEST 


7 
CSR=Ie 
: REGISTER DEFINITIONS 


.SBTTL BASIC DEFINITIONS 
- INITIAL 2AOORESS OF THE STACK POINTER ### 1200 ### 
STACK= 1 

-EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 


“EQUIV IOT; SCOPE ; BASIC DEFINITION OF SCOPE CALL 
; #MISCELLANEOUS DEFINITI 

T= Il 33 FOR HORIZONTAL TAB 

LF= le +3 FOR LINE FEED 


CODE FOR CARRIAGE RETURN 
PS TUROHL INE FEED 


6b EOR, Ce Sratuse 


ST ert eo 
T REQUEST REGISTER 


Pp 
Dose 177870 MDESS GALLON ELE, 


i ig REGISTER FERAL RECTSTER 


Riz XL j GENERAL REGISTER 
Res %2 GENERAL REGISTER 
Ris iG GENERAL REGISTER 
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ICE REGISTER TEST 
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peoAeG Pll "2B wR-7P 


uw) “ 
See) coos § : 
pereeerr E ~ 
ae Seeseene & . 
Sanbanabaee a 3 E 
: a : 
a = 
a , smARnGS E, 
meena rosSeeeRe MBEsseSseSenc... SHIT -socseeeRS 
3 >>> >>>>>>> = i] 1 ue 
Srunuongn AAA ULM MBZEZeEEEAE SHLMUAG LEYS 
wcas EBPEDEDES CSaaaaanaaaaeeeeeeeees Scceeeeoces 


ob Be Se saces 


; SER ERMA BRERA G RRA RMBA SAS ON ANAND S SERRA MMRBS RE RRR CER EES 
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SBCRReERE | 


LSE 
pesesyesyesy es 
LW oO 


418 C “CPU” TRAP VECTOR S 
ae 5 55 TIME AND OTHER ERRORS 
0 c= 19 s RESERVED AND ILLEGAL INSTRUCTIONS 
fie id ee: TRAP 
TVEC= 14 Ha TRAP (BPT) 
TVEC= 20 Bata /OUTPUT TRAP (IOT) ##SCOPE## 


ror fe Yeap (EMT) ##ERROR## 


<= 
-_ 
0 
abe 


KVEC= 60 irty Ty KEYBOARD VECTOR 
TPVEC= uo iiaty PRINTER VECTOR 
C= ;PROGRAM INTERRUPT REQUEST VECTOR 





——_ - - - a rm i ne em me a 


LOL 
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BASIC DEFINITIONS 
+2 
i 
+ 
HALT 
+2 
_ 
+ 
HALT 
+2 
HAL 
+2 
HAL 
+2 
HAL 
+2 
HALT 
+2 
HAL 
+2 
wg 
ef 
HALT 
. +2 
HAL 
+2 
HAL 
+2 
HALT 
+2 
HAL 
+2 
HAL 
+2 
HAL 
+2 
HAL 
+2 
HALT 
+2 
HAL 
+2 
HALT 
+2 
HAL 
+e 
HAL 
+2 
HAL 
+2 
Ks 
HALT 
+2 
HALT 
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perenne enorme ar seeps 


; 


rm ewe ee ee 


? 


a vl OR11C pevice REGISTER TEST 
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Pa AAs Mar Sat bana aan Bee tr a ar aati ia ht te 


IC DEF PINrt 
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x 


COS KK KO 
ee ee 
NOW £W-oO 


BREE 





: 
: 
dj 
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000526 000000 


eee - 


WERERELS SAS oS a case dub laldalk etn peter ay ya ae tat th 


ND-11 


ERERE 
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s 
"s 
T 
+ 
HALT 
220 
5" 
PFAIL 
340 
“HLT 
: i 
a O00046 246 
699 O000% 004112 SENDAD 
700 bocce 252 
oop 174 O74 
703 000174 Gooo00 DISPRE: 0 
704 000176 SWREG: 0 
705 o0n200 . 2200 
706 00200 900137 go1260 IW aeSTARTI sINITIAL START. i tei 
Phe boned pease Baise tp Seerear RESTART — 
709 001200 21200 
7 THIS TABLE CONTAINS INITIAL REGISTER AND VECTOR ADDRESSES 
713 001200 167770 RCSR: CSR 
714 OO0le0e 167772 CSR+2 
71S OO1204 167774 CSR+4 
716 001206 167773 CSR+3 
217 901210 000300 RCSRI: 
519 poleia boos 
72k ;THIS TABLE CONTAINS REGISTER AND VECTOR ADDRESSES OF THE DRI1-C UNDER TEST 
723 001216 177570 SUR: eet 
58d SR iss 125358 phecaS té ;ADORESS OF DR11-C STATUS REGISTER 
fee Ob1ee4 167772 : 167772 ADORESS OF DR OU T BUFFER REG. 
001 167774 IBUF: 167774 ADDRESS OF OR I BUFFER REG. 
768 001230 167773 ORBHIO: 167773 ‘HIGH BYTE OF OUTPUT BUFFER REG. 
1 00030C CA: 309 INTERRUPT VECTOR OF UNIT UNDER TEST 
Sol DRVEC: 304 INTERRUPT VECTOR 
733 00i240 000000 XORFLG: 0 : 
735 001242 000000 COUNT: 0 ;COUNT LOCATION 
7% eis 000240 PL: 240 PRIORITY LEVEL 
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MD-11 
BASIC DEFINITIONS 


-G,_ DR1IC 
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001246 000000 PASCNT: 0 ;NUMBER OF PASSES COMPLETED 
001250 STARTI: 
001250 012706 001200 rrche INITIALIZE al er TUP THE STACK PO 
s3SI7E FOR 8 SUITCH pegiSten, 1c ?"? an # 1S 
23E 0A “-1 TUP FOR A ITCH REGISTER. 
go1254 Mee p0g04 MOV abeRRveE =( p) 33 VEC 
Gbisse Gisrer I7rer0 Terres == Fv SGA Sn SETUP FOR A ROMER, SMICH RECISTER 
001 1735 177706 CMP v1, 2: TRY TO SpRueRe ee 
00131 1012 BNE Hae NO T TRAP yOgCURRED URRE 
001312 000403 BR 65S ::BRANCH IF NOT OUT - 
001314 012716 001322 64S: HOV 8655, (SP) ::SET UP FOR RETURN 
1 Gierey 000176 177666 65S MOV eSHREG, SHR ;;POINT TO SOFTWARE SWR 
1 12767 O00174 177662 MOV I DISPLAY 
001336 012637 OO00004 66S MOV (SP)+,d8ERRVEC ;;RESTORE ERROR VECTOR 
oooo42 o0004%6 CMP 842, 2846 
ree rat % BEQ 3 sYES, SKIP TITLE 


BISISIRAPSRSS IAAT INA ASe GRATER SOMA SS Sa eoeT SaaS 
8 
4 
2 


eg neh Seo THe PROGRAM IF 
0013S2 005227 177777 ve INC a-1 Fier ries 
001356 001027 BNE 67S ::BRANCH IF NO 
_— cert, Gre vecue for sorTwARE sutton” ct] _— 
001364 oooo42 : et Ug FOR nee 3 ING UNDER XXDP/ACT? 
001370 001006 BNE 69S >:BRANCH IF YES 
001372 026727 177620 000176 CMP SWR, 8SWREG > SOF SWITCH REG SELECTED? 
001400 001005 BNE 70$ 33 
001402 104405 GTSWR ::GET -SWR SETTINGS 
001404 BR 70S 
001406 reas 000001 0o0S144 698: MOVB 81, SAUTOB ;;SET AUTO-MODE INDICATOR 
001414 000410 * BR 67S --GET OVER THE ASCIZ 
001436 i5g8s: -ASCIZ <CRLF> #MD-11-DZDRC-Ga<CRLF> 
001436 000463 oe 8S ;SKIP INTERRUPT VECTOR SIZER IF 
IN AUTOMATIC MODE 
;SIZE FOR INTERRUPT VECTOR IF IN AUTOMATIC MODE. 
001440 012700 000302 3$: MOV #302, RO ;SET UP FLOATING VECTOR AREA 
ool 019050 7777s 4§: HOV RO, -2(RO) 
1Wey 05780 my ERA 
00156 022700 000776 CHP 8776, 
BO eH Giera7 001516 000014 MOV $0814 set UP BPT 
0014 1 000340 000016 MOV #340, 0816 :SET UP PSW 
001500 O1e777 000101 1774 MOV #101, aRCSR FORCE AN INTERRUPT 
001 NOP 
001510 o00240 NOP 
001Si2 000000 HALT :NO INTERRUPT OCCURRED 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 
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B: 
Z 


T_INTERRUPT VECTOR 
HOLE 


N 
TRAP CATCHER 


I 


;FILL IN NEXT TABLE ENTRY 


yt 
B55. 5 we gekebe Y Ge. 
e.. Be el 
gees res seet peo tess suk go ktso 


. h 
se ee ef ee © 2 & 
vA ae g8 5 S 
dt ed ot ot 
tucucucy 
oy 
ee Ss 


Sw 
Soe ese 
ek 


RRLILInAUIU MCR Reich i ieee eR Aalst 


Scat Kean hee Rae Keren een tenn Reem iene een Kame Kame hat ieee, Kame Kem Kam tom Kaen hem en hem ee hee eee ee oe ben ee ee) Re ie Rees Roe D 


S88SS8SS8SSSSSSSSSSSSSS8S8Ss8 888888888 


= 

= 

at un 

BY 

+ 

poe 

wo @ Se 
w 

oS oh 


RETURN 


woacacaaae 
eaeececeararnr> 


i ee ee : 
eeeeeaee a 
++++ ++ 4+Or 
OO Om om om FE CG 
BeRSeeeeeete 


5 wees ew c 


INITI 
TART 
RSTAR 


= 


RiereRe eR eee 


eee ed ed we ed eg ed OS ed od oe 


8888888s8sess 


;GET ADDRESS OF STATUS REGISTER 


;SET PRIORITY LEVEL 6 


;DOES RESET CLEAR REGISTER? 


BEGIN: 


001000 177214 


ora? 10 
8 Roe | 
002014 012777 O00240 175754 


RERERE Sea seeseetssaascasas SNM ON NUR IOMeNe Re eeGeee 


mm ae eee 


Jy 


IFO DEE 


Se ae 





PERSE SERA LOM Eos GRRE OR Bad Toul sade c ener DRE eae ee 
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eee 


UE Ogg 
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177004 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


i 


Hl: tia 


#10, ICOUNT 
8-1, dOROBUF 


@ORT SUF 
+4 


pet Se al 


BOROBUF , 40 
S952, 20 


#125252, 2DROBUF 


#125252; “0 
+4 


;SET TIME OUT TRAP VECTOR 
PRESET OUTPUT BUFFER 

pe a 

;DATA REGISTER NOT CLEAR 


;ERROR! TIMED OUT WHEN REFERENCING DROBUF. 
sRESET STACK POI 
RESTORE TIME OUT 


;ALL ONES TO REGISTER 


;REG WILL NOT HOLD ONES 


;SET DATA TO ALL ONES 
SHOULD CLEAR REGISTER 


;REG FAILED TO CLEAR 


;DATA NOT=S2SeS 


;DATA NOT=12SeSe 


; TEST Re Sper Ty OF DR11-C OUTPUT BUFFER REGISTER 


BUF TST: 


1S: 


es: 


HOV 
Ts 


#40, 28 COUNT 
ke 


IRE=AODRESS oF of” OuruT BUFFER REG. 
cont 


;PRESET EXPECTED RESULT 
;CLEAR REGISTER 


’ 
; 
; 
; 
’ 
’ 
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SOFTWARE SWITCH REGISTER 


3 


SoA BT * a eMAR-9 ora prin Tester VALUE 


104000 HLT 





Ee 
rt 001363 BNE i$ 
ais ;TEST THAT BYTE REFERENCE TO DROBUF AFFECT PROPER BYTE ONLY 
313 000004 SCOPE 


012777 1177777 176706 TAG: MOV #-1 , SOROBUF 


176 CLRB ;CLEAR LOW BYTE 
1 MOV Xo 
1 CMP el yh 

+4 





is 


e 
& 


918 ; 
313 104000 HLT ;BYTE LOW FAILED TO CLEAR 
S) ES RE arn rr 
1 1 176656 MOV 8-1, JOROBUF 
33 108077 176656 CLE QORBHIO ;CLEAR HIGH BYTE 
925 O0c3SE ‘ boea7? 8377, 40° 
$26 002362 001401 BEQ +4 
327 002364 104000 HLT sHIGH BYTE CLEAR FAILED 
aR a 
os Giese Be? onewg ce gs, 
a5 002404 1 156650 aR 0 
934 one1G it8e7? 17b614 1S: re Ety ; INCREMENT HIGH BYTE 
93S 14 1 1 INCB LCR) 
3% O0c420 ge77i4 176600 Cie SOROBUF , (F 2 
339 SeSe ate fre sHIGH BYTE HAS BAD DATA 
$39 0020430 105764 000001 TSTB ss ACR) 
940 0020434 001402 BEQ 3$ 
941 002436 000764 BR 1§ 
S453 OSwe | bobo Ss: tore 
con ;CONTROL STATUS REGISTER (DRCSR) TESTS. 
945 002444 O0S015 CLR (RS) 
aie 002446 011500 MOV (RS), RO 
34 001401 BEQ +4 
a4g 04000 HLT 
par 12715 000140 MOV #140, ORS ; INTERRUPT ENABLE FOR A+B 
002460 011500 MOV ars, XO 
951 O0e%G62 022700 000140 CMP #140, “0 ;ENABLE BITS 
= ai (Biot Son 
9s4 
355 o00004 SCOPE 
956 012767 000010 002264 MOV #10, ICOUNT 
27 pierie 000140 MOV 140, RS ;SET INTERRUPT ENABLE FLOPS 
RESET ‘CLEAR THOSE FLOPS 
9 011500 MOV ars, “0 
960 001401 BEQ +4 





HO0e2 
SEAT MR TEESE "ley LPO altace PE 





%1 002514 104000 HLT ;RESET DID NOT CLEAR INTERRUPT ENABLE BITS 
e D0 00 ie She f301 ;SHOULD SET REQ A ALSO 
366 140 BEQ 
% 1 HLT 
es 005015 CLR ORS 
971 saa BIS #2, RS ;SHOULD SET REQ B 
972 021527 100002 CMP ars, #100002 
373 001401 BEQ +4 
975 Apepee CLR ars 
ae 000004 SCOPE 
978 052737 000340 177776 BIS #340, J8PSW 
979 iS 177777 BIS 8-1 
980 15 100342 CMP #100343, (RS) 
ee s 0 140 BEG +4 
B02 042715 000003 BIC #3, aRS 

234 neg Oee716 000140 CH #140, RS 
aoe Sose tee ar? ‘ ;WRONG BITS SET 
3 ee Bee 00349 177776 Roy agg, g4PSu 
991 RESET 
992 002634 005715 TST aRs 
9939 002636 001401 BEQ +4 
a3 002640 104000 HLT ;RESET DID NOT CLEAR 
5 ae mee sor 

12767 OO4000 002114 MOV #4000, ICOUNT 
998 002652 O0SDIS CLR ars 
999 15 ORS 
1000 105715 TSTB 3s RS 
100 100401 +4 
i0ue 104000 HLT ;BIT 0 DID NOT SET BIT 7 
1004 O0266&4 SCOPE 
1005 O0cbbb 1 18 MOV #82, ORS 
1006 1 TST ars 
1007 002674 100401 BMI +4 
1008 002676 104000 HLT ;BIT 1 DID NOT SET BIT 1S 
1010 ;TEST EXTERNAL TRANSFERS - C MUST BE CONNECTED 
1011 002700 00004 with SEOPE aiticeee 
1012 002702 005077 176316 CLR QODROBUF 
1013 002706 017777 176314 176310 MOV SORIBUF,IDROBUF ; TEST TRANSFER OF ZERO 
1014 002714 001401 BEQ +4 
101s 002716 104000 ;NOT EQUAL TO ZERO 


LT A ee ee 


102 
EAA PIF TEESE ey va PPU STARR eft PO 2 
HR Bee fee am ee EBay 
i re one to" AL oe 





ite l CMP #-1, JOROBUF 
l are ‘ ;NOT ALL ONES 
000004 SCOPE 
005067 002010 CLR ICOUNT 
005000 CLR %0 
176240 TSTb: MOV %0 , OROBUF TEST ALL NUMBERS 
176236 176232 MOV QORIBUF , IOROBUF 
176226 CHP x0), SOROBUF 
HLT i ERROR - CHECK “0 FOR GOOD 
INC “0 :DROBUF FOR BAD 
BEQ TST9 
GR seep BUF 
TST9: SCOPE 
004766 MOV #5, J8ICOUNT 
meas TEST DATA FROM BLACK BOX (NOT CONNECTED) 
{ple HOV ,@ORIBUF ;STATIC LINES EQUAL ONES 
SORIBUF ; ~D "DATA REGISTER TO “0 
CHP #-1,%0 


;REG O SHOULD = ALL ONES 
;READY BIT IS IN A ONE STATE 
OPE 


1 
1 

1 

1 

1 

104 

toad 

1045 

1 

iB 1308 43 -CSRO AND CSRI 

1 0be MOV (RS). RO ; 

1050 003064 022700 100203 CMP #100203, 

1 ;CAN WE RAISE INTERUPT “A” 

1 003074 O00004 Bag 

1056 003076 052737 900340 177776 BIS #340, 28PSH ;LOCK OUT INTERRUPTS 
1088 110 pies ieee 176114 MOV sPoy SORVECA ; INTERRUPT RETURN POINTER 
105 116 012715 000101 MOV #101, aRS INTERRUPT ENABLE AND CSRO 
1060 O03 177776 CLR aePs 

1062 003130 104000 T ;NO “A” INTERRUPT 

1063 00313 905015 TST4: CLR ars 

1068 0031 16 176074 176070 MOV DRLVL,@DRVECA ;MOVE .+2 TO “A” INTERRUPT VECTOR 
1066 RAISE INTERRUPT “B” 

{bee eiegtd a 1200 soy aSTACK, %6 

bes peaieo ened 177776 BIS #340, JbPSW 

1070 003156 oi 176052 MOV aTSTS, gORVECB 

1071 0031 12715 anand MOV 842 ;IE AND CSRI 

1072 003170 042737 000377 177776 BIC #377, J8PSW 


mr me ee 


MD-11-DZDRC-G, OR11C DEVICE REGISTER TEST 
77 10:38 GET 


DZDRCG.P11 28-NAR-77 10: 


+ 
Voa*, 
Be 


Te Mga 
Bit 


000101 


ai § 


canes 





a3 


‘ 


- = 

Tos 
AIA 
a‘, 


WO BAGS Fe BS 
siz: Pe 


> 

= 8 
REGS eS 
33 rh 





iS 


oe oN 
= 


a 


ee <b bb bb bb bb Fb 0b 0 bb bh bp pe ph ps 
ed OB bh bb = 0 bb hb bb bb he bh pe pe pe 


RURRERALRSSSaR ENC SSRIRRERRCS SB Se 





MACY11 27(1006) 28-MAR-77 10:45 


0: PAGE 22 
VALUE FOR SOFTWARE SWITCH REGISTER ; 


TSTS: Cth ons ;NO 8 INTERRUPT 


; TEST FOR INTERRUPT FROM DEVICE 
BRe ;PROCESSOR LEVEL ZERO 


MOV STINT1, @ORVECA . 
Bee «Pde RUB EK TREES er ennece 
BIS #101, 2ORCSR :SET INTERRUPT ENABLE-AND CSRO 
HLT ;NO DEVICE INTERRUPT OCCURED 
TINT1: SCOPE 
TEST FOR INTERRUPT FROM THE DEVICE 
ae : ;SET TO PRIORITY LEVEL 1 


STINt2, SORVECA ;INTERRUPT VECTOR ADDRESS 
aSTACK 


‘etEAR INTERRUPT. ENAGLE 


;SET INTERRUPT ENABLE-AND CSRO 
;NO DEVICE INTERRUPT OCCURED 


BH eR ate 
Bie Hotaiet | SPMMIRENPL Ao sn 


HLT 
TINT2: SCOPE 


NOP 
HLT NO DEVICE INTERRUPT OCCURED 
TINT3: SCOPE 
TEST FOR INTERRUPT FROM THE DEVICE 
#140: ;SET TO PRIORITY LEVEL 
TE ae ROE 
BIC #100, JORCSR : I ENABLE 
BIS #101; SORCSR :SET INTERRUPT ENABLE-AND. CSRO 
HLT ;NO DEVICE INTERRUPT OCCURED 
TINTY: OPE 


TEST FOR INTERRUPT FROM DEVICE 
. ;RAISE PROCESSOR PRIORITY TO LEVEL 4 
STINTS, @ORVECA ;IN CASE OF INTERRUPT 


H E 
‘SET INTERRUPT ENABLE AND CSRO 
;LET INTERRUPT OCCUR 


at a 1} 
BIC 


#100, dORCSR 


Se tes — - 


KO0e 
RE RUE TEE "hey FU EAI flat ello = OO 


iene: ike 





a 





0001 


Boolot i 7eHae Bie HOt Soaese 


#100, 2ORCSR 
+4 


ew FEGIGN) BK at 
g 882 
T 


ee ae ee me te be pene Bn tae ae Pan ae ae Pe ae ae ae be bn be ae ae ae Pe ae ae me Pe Pao bene ee Pe Pene fee ee se ee eee Pe Pe Pee me ne pene Pope 
a ee be be Be be me Be bs Be ban an ban Be ba me be Be Be be ban be be ae ae ae ee fee me been ne me ee ee Pe me ene me me ene me Pe Pe es Pe 


PBREBISIseAZIN-SSSELEH LOR SSOVKR LOL SSSA 


000101 175302 BIS #101; aDRCSR 

000 75274 00; 
104000 TINTS: HLT 
000004 SCOPE 
016777 175272 175266 MOV ORLVL, IORVECA 
005077 175262 CLR ba 
- ooo3se ERO, n0 ROUT aTOBR 
These? | Aposed is:)6 eve «Sree 
100375 BPL 1$ 
005077 000344 CLR aTOBR 
000342 2s: TSTB gICSR 

K 

175210 BIT #SW10, ISWR 
001402 BEQ 4 
000137 001754 INP JERSTART 


000340 17777 BIC a 

Be ics AY aTTWNS aon 

00 175370 BIC #100, dORCSR 
#101, aO0RCSR 
#100, 2ORCSR 
+4 





;NO DEVICE INTERRUPT OCCURED 


; TEST yy INTERRUPT FROM —. (HIGHEST PROCESSOR PRIOR 


ord A Ey gen 


re be EOF tte ay ITY "0 HIGHEST LEVEL 
T 


CLEAR INTERRUPT ENABLE 


;WITH NO INTERRUPT, BRANCH OVER HALT 
I OCCURED 


A all TO LEVEL S 


jee INTERRPT Deete 


;D0N’T LEAVE IT SET 
‘WITH NO INTERRUPT, BRANCH OVER HALT 
sINTERRUPT OCCURED’ 


; TEST FOR NO INTERRUPT FROM DEVICE 
#340, d8PSW 


; TEST FOR_NO INTERRUPT FROM DEVICE 


RAISE PROCESSOR PRIORITY TO LEVEL 6 
IN = OF _ INTERRUPT 


ic 1 
INTERRUPT ENABLE-AND CSRO 

‘BON’ T LEAVE IT SET 

WITH NO INTERRUPT, BRANCH OVER HALT 

INTERRUPT OCCURED 


;FOR FALSE INTERRUPT 


;TYPE °#’ 


;LOOP ON SELECTED DR? 
;REPEAT TEST ON DRIIC SELECTED 


me en a = ne = ee a —- 


MAR-77 10:45 PAGE 24 
REGISTER 


LOe 


SOF TWARE sui tcn 


MACY11_ 27(1006) 


GET VALUE F 


10:38 


28-NAR- 


-G, DORIC pevice REGISTER TEST 


ll 


MD-11 
DZDRCG. 


F_NOT AVAILABLE 
ER 


TRAP 


T_DR11-C_ ADDRESS 


oP CONSTANT 
EP 


;RESTART TEST USING NEXT DR11-C 


= 
35 
gvoks 
*. 
St 


Bee eee eer ; 


s 





spempaamnagahiaets 
ee 3 + 





eee one cee eee ee Ee ee oe oe ae eo 
a dk ad ad ad ed ad eg od od od 


S BARBER MTTRRERES 


BIT PRINT OUT 


ce Mis 


;KEEP TRACK OF PASSES COMPLETED 


: gE 5 

é repens fa 

& Bs = we 8H 8 

E tives 2 GLEE E 
= 


CAL 
2, 3TDBR 
SR 


‘Bee .LQRAL Vee *. 


> 8 By 
ce 6s § | Sar & uge 8 
i ¢ 3 ee az 55087 28,58 Sigkos ue 
ze 


Lara gaara art. 


: 
d 3 G5 asaseus Gs 
ee BONE 


;PRINT OUT 


020000 
000144 
090130 


3 


ae 8 





. 

Rann == RULER SAAGMARARE 
lan buntanbanbaabenban beckon! 
cucucucucucurucuT 

Son een oe Reon Kee ome Ree om hee hen a 


SL Nh de dd a) eg Ht et 


—_——— ——  C—t— 


a cc a 


“G6, ORI1 ICE REGISTER TEST MACY11 27(1006) 28-MAR-77 10:4S PAGE 2S 
| DepAcG. ll aernn-9) 10s38 GET VALUE FOR SOFTWARE SWITCH REGISTER 


: T 
ws Ae Bun = RE LG" HOBGSTEARP TVS 
MOV “4 
000046 CMP Sais bee ;ARE_WE IN ACT-11 AUTO MODE? 
BEQ 1S “HALT ON ERROR IF YES 
174676 Br OSH TEST FOR HALT SWITCH 
1S: HALT ;HALT ON ERROR SET 
sane RTI ‘RETURN TO MAIN STREAM 
Siva: 8 
TOBR: 177566 DATA 
sie ‘ire : STATUS 
PRTAB: CLR BINCT 
. HOV ras “4 GET LIST ADDRESS 
20 MOV z eet 
1 14 MOV 81. DECML 
1 WAIT: e art R 
T 
BRI MINUS ;NEG SIGN PRINT 1 
000260 177712 HOV 8260, aTDBR *POS SIGN PRINT 0 
000261 177702 MINUS: MOV #261, JTDBR 
SEVER y A nee IN RR 
op01ss ut nov T pce Pu oo WENT DURING BIC 
Spotad gfe TOME 3 + ENO “y eect CHARACTER 
BEQ WRTOC *ZERO, WRITE O IN LIST 
000136 000136 MKNUM: ADD CHL ,WGTCT s COUNT TO 
Spore ge NET x3 o. WEIGHT 
000120 WATOC: BI : eSeLT PREFIX 
ceotes MOV Sinct cus *WRITE ASCII CHAR IN LIST 
ae 000102 R00 SEV N, EXPAND BINARY WEIGHT 
CLR BINCT 
7 DEC ASCNT 
BEQ Ist 5 CHAR IN, LIST 
eeaaax 
N000S2 OO00SO MOADD: AOD SEVEN, SEVEN : MAKI COR ENT by SEVEN 
BNE MOADD 
BR STAR NX SEVEN SET GET NX OCTAL 
000005 OO0044 XLIST: MOV 8S, ASCNT *SEND 5 CHAR TO TTY 
177552 WAlTe: TSTB  atTtsR 


a 
oH 
=) 
mw 





ee ee ee ee a | 


he) ei | ICE REGISTER TEST MACY11 27(1006) 28-MAR-77 10:45 PAGE 26 
bepada’ 1 aernAn-P) 10538 GET VALUE FOR SOFTWARE SWITCH REGISTER 









1297 -(4) ,STOBR 

ie 3 HOF FINISH PRINTING GET NXT NUM 
tt 

Ee HOFHM: TSTB aTCSR, 

1303 conat RT 47 ;HEAD FOR HOME 

1305 SEVEN: p 

PaIBE 

1 BINCT: 9 

1 ASCNT: 0 

131 LIST: 0 

131 u 

13 

iia 

1315 -SCOPE LOOP ROUTINE ENTERED BY USER TRAP 

131 SCOPEB: CMP (6)+, %6 ;REPOSITION THE STACK 

131 012637 1 MO 6)+, J8PSW 

1318 OO464%6 000177 000120 RETURN ;SCOPE RETURN 

1320 Date i SCOPE OR/AND ITERATION LOOP FOR EACH TEST 4000 TIMES 

1368 G37 oyoo000 «174334 © * BIT #SW14, ISWR ;TEST_SR FOR SCOPE 

1324 resea 001240 an asXORFLG ? 

1325 100012 BPL 1§ 

132% 01 o00004 MOV a84, -(%6) 

1 1 MOV #XOR, 284 

1328 1 1 177060 MOV #31, 98177060 

1 1 MOV (7654, 384 

1330 104406 1S: CKSWR 

i e777 004000 174270 BIT #SW11,3SWR iN a FOR ITERATION 

1 005767 174312 TST PASCNT ARE WE IN Etrot PASS? - 

ke tees ooonz 00022 SSE pees OS Oy SOT ee 

1336 1403 BEQ SCOPEG’ sEXIT - DONE 

1337 7? 000016 INC SCOPE : INCREMENT COUNT 

1339 ? 000010 SCOPEG: CLR Sc ‘OPER COUNT. 

1340 SCOPEA: MOV @%6 , RETURN ;SAVE SCOPE RETURN POINTER 

134i ibe RTI "RETURN INLINE-NEXT TEST 

1343 F: O ;COUNT LOCATION FOR ITERATION LOOP 

isi : RETURN: BEGIN _ “ADDRESS OF LAST TES 

134% (ae 

1347 XOR: CMP (%6)+, (%6)+ 

iss 000004 (%6)4' 84 

i 

1 “PRINT DEVICE apbRess AND VECTOR 

1351 000240 177316 MOREID: MOV 8240, aTDBR 

1352 177314 TSTB. = @TCSR 


? 


Pano Sno pat Pot bas foo Bn fae Ps Pew fae fae fre Po fo fe Po fo 


RSI sal al al a 


a Bs be Bs be ee Bas be ee 


SIRRSGRH ESOS 


B03 
ORS PUG DOIG SETTER TS PUTTAR ASC ME © 





SHAR GS WAS YS 
ee 
a” 


~ 
iw 
a 
e 
OQ 


1 





i 
il 
14 
3 


sae 
Sigg 


rors 





RTS ;BACK TO PRINT 
sENTER HERE FOR POWER FAIL 
9051 910046 PFAIL: MOV x0,-(6) ; SAVE REGISTER OR STACK 
005 1 10146 MOV %1;-(6) WHEN ING DOWN 
0051 O1Ge¥6 MOV xg,-(6) 
ons 10346 MOV *=(6) 
1X6 010446 MOV %4" =(6) 
O05! OLOSM6 MOV 78,-(6) 
reat ste 1 Rov %.@ ;STORE STACK POSITION 
0051S0 012737 O0Si62 o000e4 MOV SRESTAR, J824 
oo ut HALT ;HALT ON POWER DOWN NORMAL 
1 i SAVRE: O *STACK IS SAVED HERE 
162 O01 706 177772 RESTAR: MOV SAVR6, %6 *RESTORE REGISTER OFF STACK 
1b 1 172632 MOV (6)+, 24 + WHEN ING UP 
1 MOV (6)4,%5 
005174 012604 MOV (6)+;%4 
176 012603 MOV (6)+,%3 
1 MOV (6)+)%2 
1 MOV ( d+, xf 
1 MOV (6)+ 
000137 001754 IMP aeRSTART 


IQUE SELECTION OF DRIIC 
SPECO: HALT ;PLACE ADDRESS OF DR11-C CONTROL STATUS 


2 
3 
8 
g 
5 


i 


i ae 
aL 
ze 
. 


z 
he 
g 
5 


ay 
g 


22 
oO 
Be 


© oes eres eee ee 


MD-11-DZDRC-G, DR11C DEVICE REGISTER TEST MACY11 27(1006) 28-MAR-77 10:45 PAGE 28 
DZDRCG.P11 § 28-MAR-77 10:38 GET VALUE FOR SOFTWARE SWITCH REGISTER 


oo0002 WR 0 OF DROUTBUF 
ooooc2 roy AT: ore aa fing OF DRINBUF 
eeener 

nov RT’ CRD + 

DEC Ri DROUTBUF +1 

HOV RI, (RO)+ TORO I 0 TABLE 
001210 SPEC2: MOV SRCSR1, RO 

MOV Ri, (ROS+ ;LOAD INTO TABLE 

TST (RL )+ 

MOV R1, (RO)+ 

uy 2 me 

my , 

.LIST ME 


YP: 
.SBTTL TYPE ROUTINE 


AS ek. aba Beebe eat ome 
etes; «ULE Gvied  Reeees OE 


ne A sh eR RUC TION 


i TYPE ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
+ TYPE 
i MESADR 
;# 
STYPE: TSTB S$TPFLG IS THERE A TERMINAL? 
tr | rer IF NO TERMINAL 
BR a¢ #4 
1S: MOV RO, -(SP) ST eopeess RO 
MOV tSP) RO ii TO Be TYPED 
2s: MOVE (RO) +, -(SP) : D ONTO STACK 
BNE F IT roeeaCTER THe 
ioe TST - + F INafoR POP 11° OFF THE. STACK 
3S: Rod 82, (SP) >:ADJUST RETURN PC 
4S: cree SHT, (SP) He IF <HT> 
CMPB BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
ar (SP)+ ;;POP foe EQUIV 
TYPE >: TYPE A CR AND LF 





= 
: 


;; CLEAR CHARACTER COUNT 
;;GET NEXT CHARACTER 





MD-11-OZDRC-G, ope ies REGISTER TEST MACY11 27(1006) 28-MAR-77 10:45 PAGE 29 
TYPE ROUTINE 





ase Ss: JSR PC, STYPEC $300 7 
rege 000130 6S: cee {LLC,(SP)+ =; aie FILLER ULER cues. ? 
nears 000120 MOV i es He 1s She NEEDED 
105366 000001 7$: DECB 436s i (SP) He 10 BE TYPED? 
a BS Hee Tee THE NULL OFF OF STACK 
76 STYPEC $3 A NULL 
107 000072 pce SCHARCNT ;;00 NOT COUNT AS A COUNT 
;; LOOP 
;HORIZONTAL TAB PROCESSOR 
112716 OO0040 8$ (SP) ss REPLACE TAB WITH SPACE 
004767 000014 9$ ISR Pc, $TYPEC +3 A 
132767 000007 oo000s2 BITB 7, *:BRANCH IF NOT AT 
001372 BNE Ss 3; TAB STOP 
TST (SP)+ if OFF STACK 
a IT NENTIC PRINTER 
1 oo0004%4 STYPEC: TSTB TPS IT UNTIL PRI IS READY 
100375 BPL STYPEC 
116577 000002 000036 MOVB (SP), aSTPB ae CHAR TO BE TYPED INTO DATA REG. 
000015 oo0002 CNPB ,elsP) iis CHARACTER A CARRIAGE RETURN? 
TOS0e? 00014 ENia  §CHARCNT + OTe CCLEAR CHARACTER COUNT 
490 000406 BR STYPEX > EXIT 
122766 000012 o00002 15 CMPB 3 s«LF, (SP) 3315 CHARACTER A LINE FEED? 
4a e305 Sy i i 
1 NCB se (PC) + He THe 
000000 :.WORD O ?: CHARACTER COUNT STORAGE 
14 005534 000207 STYPEX: RTS PC 
1497 005536 177564 STPS: .WORD 177564 TTY PRI A G. ADDRESS 
1498 005540 177566 STPB: .WORD 177566 2: TTY SRINTER BUFFER re. ADDRESS 
1499 05542 000 SNULL: .BYTE O :: CONTAINS NULL CHARAC FOR FILLS 
1500 005543 oo2 SFILLS: 2 8 OF FILLER CHARACTERS REQUIRED 
1501 O0SS44 Ole SFILLC: le ary, ILL RES. AFTER | A “LINE FEED” 
1 O0SS45 py Sas: By! Q.. SASL We “BVBILABLE™ FLAG (BIT<O7>=0=YES) 
1504 pees 01s : “ARC as? 
1505 005550 000012 SLF: (12> 
1506 -SBTTL BINARY TO OCTAL (ASCII) ub! TYPE 
1308 jj UHHH HE EEHEHEHEEEHEHEHHEHEE EE EEEEEEEERES EEE SE EEE EEE ES 
1203 sATHIS ROUT ROUTIN  urBER USED ot CHANGE A 16-BIT BINARY NUMBER TO A b-DIGIT 
1511 SO TYPOS CENTER HERE T O SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
1513 ti MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
1514 1 TYPOS ::CALL FOR TYPEOUT 
1515 i -BYTE N :N=i TO : FOR NUMBER OF DIGITS TO TYPE 
tals 7% -BYTE MM ;;M=1 OR 
151 i ;;1=TYPE LEADING ZEROS 
1518 i ;:O=SUPPRESS LEADING ZEROS 
1520 : #$TYPON----ENTER HERE TO TYPE OUT WITH wt SAME PARAMETERS AS THE LAST 


; NUMBER a 


Ay hn Wea cal 
:#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


s#CALL: 


;;CALL FOR 


Ok on NUM, -( SP) 
MOV NUM, - (SP) 
TYPOC 3 


# 
;% 


;#STYPOS OR STYPOC 
; #CALL: 


BINARY TO OC 


CE_ REGISTER TEST 


0:38 


DAbG Btn a HARP I 


: 

2§ —_ a 
sep ooh EE : "soe ee 
oa ee: g?. % # 

Land 3 2... - —- ~ ee x 
ne = j ee ae Spee + 
owls Rar a: » tS Eww zo, 
A. ; weueEey — aon : ae 

« er 

Babs woadite AiitScol utathadlVotectoners 
a ~ 
a = uze 2 ha 
T 2:92, -< feer~ 
saz cP za36 2ak S85 2852 
a SAREE SESE RUS RYLD Bee QNSE OS 


Serdar reseese Sepidadddasuesengestetus 2es5aa5 


6S: 





1 
ee Tee 


heieintnimelnthinettatatah att een 


Th a a a a a dd ad hd ed dt hd wt wt tet 





017646 000000 
116667 000001 000211 





a ae ee a —-— Ce 


-77 10:45 PAGE 31 


#8 


= 
BoDALSCPT T° aBCRAR-PP orae BanaRy TO'OCTAL (ASCII) AND 





1577 005770 00002 RTI i STORAGE FoR. 
ie rs BB ss: BE i GHP Aldrin 
1580 005774 000 SOCNT: ‘De $3 at 
tags Reetze ooo8en + Ha Brar¥e TO TYPE 
1 SBTTL TTY INPUT ROUTINE 
ia j Seat eet Ive TTY KD STATS RESRERRESELEL 
1586 006000 177560 Sl. 177560 .s 
1587 006002 177562 STKB: “ier 177562 ii TTY KE BUFFER 
1588  ENRBL 
1590 i obi tr tet 1p byt + tt leet 
tea ; te eae en THE WILL 
1593 ie isin Pek Tie TEST FOR CHANGE IN N SOFTWARE SuticH REGISTER TRAP CALL 
1535 006004 022767 000176 173204 ssuREG SHR i318 THE SOFT-SHR SELECTED? 
13? Qoeold 108777 177760 .3 ‘Chan THER ? 
1598 006020 100071 BPL 1S$ $i JF NO NT WAIT AROUND 
1e00 Goeose fherie } I oer (SP) I 

Bele terres ge H(i pia 

eer: 
1603 005040 126727 000514 000001 CMPB 6: SAUTOB, #1 2 RUNNING IN AUTO-MODE? 
1604 006046 001456 BEQ 1S$ 
1606 OO60SD 104401 006531 TYPE  ,SCNTLG 5 FOHO THE conTaa.¢ (46) 
1607 OOB0S4 104401 SGTSWR: TYPE SHSiWR is TYP CURRENT CONTENTS 
1608 0167% 17ell2 MOV SWREG, -(SP) 33 SWREG F 
1609 006064 104402 TYPOC GO TYPE--OCTAL ASCII(ALL DIGITS) 
Tei? Boeees aieone COSY? oe Had foNTcR 
1611 19S: CLR -(SP) 38 
1el§ Gheove oer? 177676 7s ee, OOSTKS Fe 
1o18 rates 100375 : 7$ :: IF NOT TRY AGAIN 
1616 OO6104 11774% 177672 MOVB  @STKB,-(SP) ;;PICK UP CHAR 
1617 006110 042716 177600 BIC 8tC17?, (SP) ::MAKE IT 7-BIT ASCII 
1619 
ty 006114 021627 o000e5 9s CMP (SP), #25 3;1S IT -u? 
l622 006120 00100s 10$ ::BRANCH IF NOT 
1623 O06l22 104401 o06524 TYPE SCNTLU :rYES CONTROL-U (tU) 
1624 006126 062706 000006 208 ADD bé, SP tI PREVIOUS INPUT 
bes 006132 000757 BR 19$ :LET’S TRY IT AGAIN 
1627 
1628 006134 021627 oD0015 10S: CMP (SP), #15 :;I1S IT A <CR>? 
P50 Spe tue ead oo0004 ene 1°85) Baer THE FIRST CHAR? 
1631 006146 eathia BEQ 115 BRANC 
1632 006150 016677 o00002 173040 MOV 2(SP), aSWR ::SAVE NE 


ee 


- a ee ee ee ee 


! 
i 
| 
! 
} 


3 
my 
5 
G? 
a 
x 
r=) 
a 
® 


MD-11-DZDRC-G, sere ICE REGISTER TEST 
DZDRCG.P11 10:38 TTY INPU 


118: 


, 


= 


B33e5 oo0001 
177574 


aaa 
re * 
2K 


pastas 
aS 
Je 


Fioeeoae 


é 


SPBBRASE SUS GAS ATE 
E: 
; ss 









2 
“ 17$ 99 
164 16 (SP) 7:NO, SHIFT PRESENT 
iB oes be 5) i Rien Paes oe 
1 17S: 2(SP) He COUNT OF CHAR 
1651 16 177776 BIS =2(SP), (SP) PN NEW 
1652 000707 BR 7§ *:GET THE NEXT ONE 
1653 1O4401 00SS46 18S: YPE ,SQues :: TYPE ?<CR><LF> 
1654 BR : SIMULATE CONTROL-U 
4 . 
1658 H + LESSER EREARSSARRSSS LASER ALAA SSSA RARERARAALE RAPA LREEZAAAZERER 
1659  ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TT 
1661 me ROCHR s INPUT A SI CHARACTER FROM THE TTY 
1662 te RETURN HERE + Nate Cue STACK 
1663 i WITH PARITY BIT STRIPPED OFF 
eee 1 aeadoen v (SP), -(SP) THE PC 
iBeS Oleeee oo0004 00002 . NOV 4(SP} 2°SP) ive ae 
1668 1 177476 1S: 1STB asTKs vas FOR 
1670 ize 177472 000004 Hove TKB, 4(SP) HH 
7 1 000004 BIC #?0<(1?7>.4(SP) T RID oF JUNK IF ANY 
16 yer 000004 000023 CMP 4(SP), #23 a ITA CONTROL -5? 
1 177444 2s: aT TKS >;WAIT FOR A TER 
100375 . BPL Sg pe $5LOOP UNTIL UNTIL ITS THERE 
ie thee. Bee #¢C17?, (SP) TE KE IT at ASCII 
ee 000021 CMP (SP)+, b21 31S IT A CONTROL-Q? 
001 BNE 2 Me ISCARD IT 
000004 000140 3S: CHP H{SP), #140 21S tT MBS cos 
026627 000004 000175 CHP H(SP), #175 IT A SPE offal CHAR? 
raed 000040 o00004 Bic 840, 4(SP) eh ies 


4S: 
en ee ee 
t STHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


a . . ee eee 


SA EPIL yy PLO! SOE sos rem 





1689 ;#CALL: 
ipa ERRNO vere HH EooNres Oe LTRS ae SPERTER HR, Of," THE STACK 
tes Le i! T of bt, 85, oN 
169% O06405 010346 SROLIN: MOV R3,-(SP) ; SAVE R3 
1695 006410 012703 006514 MOV aStTYIN, R3 * GET ss 
Pate = game y , 
1 1 aben.cian He FED CHARACTER FROM THE TTY 
1 it: 1 1 + es 

1B 4DE #177, (R3) He fs 
178 poe ies ieerls smite’ rs ce 5 at ti eer IFN 
1703 meng _ ‘ BR ms He THE BUFFER AND LOOP 
1 111367 OO00044 38: MOVB = (R3), 9S ECHO THE CHARACTER 
170 ess iperes oS Tatts ines biS, (R3)+ . FOR 
1 , >:LOOP IF NOT RETURN 

006460 77777 -1(R3) “CLEAR RETURN (THE 15) ; 
ies Goeubs tery hose CURE >: TYPE A LINE FEED . 
1710 OO6470 012603 MOV (SP)+,R3 RESTORE R3 
1711 OO6472 O1164% MOV (SP), -(SP) : ADJUST THE STACK AND PUT ADDRESS OF THE 
171g 006474 O01 900004 oo0002 MOV 4p} 2(SP) a FIRST ASCII CHARACTER ON IT 
171 Soeste 14 000004 nov eSTTYIN, 4(SP) 
1714 1 RTI 
1715 006512 000 Qs: BYTE 0 Sram on ASCII CHAR. TO TYPE 
171 Speeti oooti ates STTYIN: *BLKE Mes ie LES 8 8 BYTES FOR TTY INPUT 
171 ered - ie eee pote Haus Beets 746/<15)< 12> / FECONTROL “ye 
ie era oe an Oe0l22 SMSWR: .ASCIZ <15)><12>/SWR = 
1 006547 O40 O47040 OS3SOS SMNEW: .ASCIZ / NEW =/ 
1554 rae aso — SAUTOB: .BYTE 0 $3040 MODE FLAG 
17es 006561 000 SINTAG: BYTE 0 i INTERRUPT MODE FLAG 
i7e8 iitars ROUTINE. MILL P PICKUP THE LOWER BYTE. OF THE "TRAP" INSTRUCTION 
1730 USE IT To I THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
1731 or THE DE SIRED ROUTINE. N USING THE SS OBTAINED IT WILL 
1733 , 
1734 006562 010046 TRAP: MOV RO, -(SP) SAVE RO 
i? Qeces Oleem ooooe = Ry ateea ed © ae ago 
es) 006572 111000 MOVB (RO), RO > GET RIGHT SVTE OF TRAP 
1738 006574 hae s00 ASL RO *:POSITION FOR INDEXING 
1739 006576 O16000 O06616 MOV STRPAD(RG),RO 3; INDEX TO TABLE 
at 006602 000200 RTS RO ;;GO TO ROUTINE 
1742 
na ;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
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: ; ROUT INE 
1 $TRPAD: . STRAP2 
1 pees pes 08D ; ;CALL=TYPE TRAP+ 1 (104401) Try TYPEQUT ROUTI 
1758 O06622 005576 STYPOC : :CALL=TYPOC TRAP+ECLONNOe) TYPE I TH LEADING ZEROS) 
= 
tre} ieee GREE ies (eae (ein) (aS ta We 
176s 006630 006054 SGTSWR ;;CALL=GTSWR § TRAP+S( 104405) GET SOFT-SWR SETTING 
1764 006632 006004 SWR ;;CALL=CKSWR Trees s(ionos} Tt Pein Sia ea 
.? othe 
ire Gee Beste Vaan TRSTiltniT TN eit SHR RIN 
1767 006640 O0S01S 047531 020125 MESSI: .ASCIZ ijentiae You ARE ON ANUXOR TESTER’ «15)><12> 
1768 O066% 051101 O20105 047117 
1769 O06654 O4044O 020116 047530 
1770 006662 OeDl22 O42524 OS2123 
177 0511 I 
1 1 MESS3: .ASCIZ /END PASS/<15><12> 
l 006 051501 le 
1774 000001 END 
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fem Gees HRY anus arin 
| STYPEN= #2aeee U 1761 
| STYPOS= #eaeee U 1761 
14448 = =—s:1174 1 
j 1386 ij te 14848 = =148S 1639 
49S8 
1S368 361 
| ; 1 1835 1S388 1760 
(Si er loses lege SMH ASB] 
! = Boe718 ; 4 ck er 447 4g 
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DSRS ose seRos 
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| eoee 008 «feces Soke Sa 
947 952 960 966 73 187 1 
1043 1051 «= 1144 ~—s 1b 121 1 1 1230 1 
1358 1363 1366 1369 14971 1 1 isoi 
1506 158 #8158 17178 «#1718 «1 l 1 
HLT». 004126 694 =: 12 168 
“SCOPE 690 13218 
. ABS. 006710 000 . 
ERRORS DETECTED: ‘\ 
DEFAULT GLOBALS GENERATED: 0 ; 
1 ¢ 
RUN-TIME RATIO: 159/23=6.7 
CORE USED: 32K (64 PAGES) 
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